home *** CD-ROM | disk | FTP | other *** search
/ HamCall (October 1991) / HamCall (Whitehall Publishing)(1991).bin / prgming / pastut / function.pas < prev    next >
Pascal/Delphi Source File  |  1990-10-14  |  487b  |  26 lines
  1.                                 (* Chapter 5 - Program 6 *)
  2. program Example_Function;
  3.  
  4. var Dogs,Cats,Feet : integer;
  5.  
  6. function Quad_Of_Sum(Number1,Number2 : integer) : integer;
  7. begin
  8.    Quad_Of_Sum := 4*(Number1 + Number2);
  9. end;
  10.  
  11. begin  (* main program *)
  12.    Dogs := 4;
  13.    Cats := 3;
  14.    Feet := Quad_Of_Sum(Dogs,Cats);
  15.    Writeln(' There are a total of',Feet:3,' paws.');
  16. end.  (* of main program *)
  17.  
  18.  
  19.  
  20.  
  21. { Result of execution
  22.  
  23.  There are a total of 28 paws.
  24.  
  25. }
  26.